   2 .
   3 .
   4 .ALCHEMISYMMETRICAL               ART
   5 clear ;:return ;NT=0;&(10)=173;goto 20
  10 for N=1to G
  11 X=X+(Hmul Q);Y=Y+(Imul R);A=A+(Jmul S);B=B+(Kmul T);U=A-(Jmul S);V=B-(Kmul T);line U,V,4;line X,Y,F;line A,B,E
  12 line -U,-V,4;line -X,-Y,F;line -A,-B,E;line -U,V,4;line -X,Y,F;line -A,B,E;line U,-V,4;line X,-Y,F;line A,-B,E;next N
  20 L=rnd (3)+15;BC=rnd (32)mul 8+rnd (3)-1;FC=BC+rnd (32)mul 8+rnd (4)+1;C=rnd (5)-3;M=M+1;if C=0C=2
  30 O=BC+rnd (32)mul 8;P=FC+rnd (32)mul 8;&(0)=O;&(1)=O;&(2)=P;&(3)=P;if M>1BC=4;M=0;FC=rnd (32)mul 8+(2mul C)+4;&(9)=50;goto 50
  40 gosub L+25;goto 50
  41 &(9)=148;return 
  42 &(9)=20;return 
  43 &(9)=20;&(0)=BC;&(1)=BC;return 
  50 Q=rnd (5)-1;R=rnd (5)-1;S=rnd (5)-1;T=rnd (5)-1
  60 G=rnd (20)+5;F=rnd (4);E=rnd (4);if F=4F=1
  70 H=rnd (3)-2;J=rnd (3)-2;K=rnd (3)-2;if E=4E=2
  80 I=rnd (3)-2;if E>1if F=3F=2
  90 if (ABS(A))-X>50A=0;BC=144;&(0)=144;&(1)=144;FC=rnd (32)mul 8+rnd (4)+1
 100 if (ABS(X))-A>50X=0;BC=129;&(0)=129;&(1)=129;FC=rnd (32)mul 8+rnd (4)+1
 110 if (ABS(B))-Y>30B=0;BC=224;&(0)=224;&(1)=224;FC=rnd (32)mul 8+rnd (4)+1
 120 if (ABS(Y))-B>30B=0;BC=0;&(0)=0;&(1)=0;FC=rnd (32)mul 8+rnd (4)+1
 130 if (ABS (Gmul Imul R+Y))>39goto 50
 140 if (ABS (Gmul Kmul T+B))>35goto 50
 150 if (ABS (Gmul Jmul S+A))>79goto 50
 160 if (ABS (Gmul Hmul Q+X))>72goto 50
 170 goto 10
:return ;run 
